home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 83 / SGDS 83.2mg / SDGS.83 / SDB83 / SOFTDISK.COPY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-06-22  |  7.0 KB  |  238 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM  SOFTDISK COPY
  2. 20  REM  (C) 1988
  3. 30  REM  SOFTDISK INC.
  4. 40  REM  BY TOM HALL
  5. 50  REM  VERSION 1.3
  6. 60  POKE 104,11: GOTO 1
  7. 51753 256:DP =  PEEK(IN -2) + PEEK(IN -1) *256:ZC = 15872
  8. 10  INVERSE : PRINT  SPC( 40)
  9. 20  FOR I = 2 TO 23
  10. 30  VTAB I: HTAB 1: INVERSE : PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  11. 35  NORMAL 
  12. 40  IF I = 10  THEN  VTAB I: HTAB 11: PRINT "SOFTDISK'S FILECOPY"
  13. 2327 }<CTRL-0x0a> GET <CTRL-0x0a> SPEED= 
  14. 389  d<CTRL-0x09> HGR2 <CTRL-0x04> SPEED= V DEL 
  15. 34048 
  16. 45065 6  SAVE <CTRL-0x09> GOSUB 1  *<CTRL-0x09> GOSUB ,  SCRN( <CTRL-0x09> GOSUB '  LEFT$<CTRL-0x09> GOSUB "<CTRL-0x18> <UNKNOWN TOKEN><CTRL-0x09> <CTRL-0x0a><CTRL-0x0a> GOSUB <CTRL-0x19> +<CTRL-0x0a> GOSUB <UNKNOWN TOKEN> =<CTRL-0x0a> GOSUB <CTRL-0x0f> L<CTRL-0x0a> GOSUB <CTRL-0x0a> [<CTRL-0x0a> GOSUB <CTRL-0x05> SPEED= 
  17. 34144 
  18. 19341 <CTRL-0x0a> 
  19. 2634 ` SPEED= <CTRL-0x0c> <UNKNOWN TOKEN> GET  GOSUB - PLOT  NORMAL <CTRL-0x09> SPEED= 
  20. 43273 
  21. 36105 <UNKNOWN TOKEN><CTRL-0x09> PLOT <CTRL-0x04><CTRL-0x0a> PLOT %<CTRL-0x0a> IF  NORMAL <CTRL-0x09> PLOT  USR<CTRL-0x09><CTRL-0x18>i<CTRL-0x04> PLOT <UNKNOWN TOKEN><CTRL-0x09><CTRL-0x18>i<CTRL-0x04> PLOT <CTRL-0x05><CTRL-0x0a> PLOT &<CTRL-0x0a><CTRL-0x18>`8L HOME <CTRL-0x09>
  22. 48896   THEN  ONERR <CTRL-0x09>`<CTRL-0x0a>}<CTRL-0x0a> LEN<CTRL-0x06>
  23. 3 <CTRL-0x13> RETURN <CTRL-0x06><CTRL-0x10><CTRL-0x13> RETURN <CTRL-0x06><CTRL-0x10> 
  24. 2494 `<CTRL-0x07> GET <CTRL-0x0a> SPC( <CTRL-0x01>
  25. 51391  <<CTRL-0x09>`<CTRL-0x03>}<CTRL-0x0a>
  26. 54957 <CTRL-0x09> PLOT  VAL<CTRL-0x09> 
  27. 2532 `<CTRL-0x03><CTRL-0x01>
  28. 48896  +<UNKNOWN TOKEN><CTRL-0x09>`<CTRL-0x03> GET <CTRL-0x0a>
  29. 54957 <CTRL-0x09> PLOT <CTRL-0x03><CTRL-0x0a> 
  30. 2562 `<CTRL-0x04><CTRL-0x01>
  31. 4 <CTRL-0x03> IF <UNKNOWN TOKEN><CTRL-0x09> PLOT $<CTRL-0x0a> IF <CTRL-0x08><CTRL-0x0a> PLOT '<CTRL-0x0a> IF <CTRL-0x09><CTRL-0x0a> PLOT (<CTRL-0x0a> 
  32. 2595 `<CTRL-0x04><CTRL-0x02>
  33. 3 <CTRL-0x03> IF <CTRL-0x08><CTRL-0x0a> -
  34. 2477 <CTRL-0x0a> -<CTRL-0x04> = <CTRL-0x02>8`<CTRL-0x18>` IF  FRE<CTRL-0x09> PLOT K<CTRL-0x0a> 
  35. 2634 `<CTRL-0x01><CTRL-0x01> IF <UNKNOWN TOKEN><CTRL-0x09> PLOT Z<CTRL-0x0a> 
  36. 2649 `<CTRL-0x01><CTRL-0x02> VTAB <CTRL-0x03> CLEAR  ONERR <CTRL-0x09> NORMAL o<CTRL-0x0a> LEFT$ TAN<CTRL-0x0e> = <UNKNOWN TOKEN> 
  37. 2671 `<CTRL-0x07> GET <CTRL-0x0a> LEN<CTRL-0x06>
  38. 3 <CTRL-0x13> RETURN <CTRL-0x06><CTRL-0x10><CTRL-0x10>/SDA83/A/FNT.5X7DGS<CTRL-0x0a>/X/FNT.5X7DGS
  39. 11 
  40. 13360 ,8: GOTO 10
  41. 1  RESTORE : PRINT  CHR$(21)
  42. 2  TEXT : HOME 
  43. 3 VER = 1.3
  44. 4 ZC = 2304:IN = ZC +7:SP =  PEEK(ZC +3) + PEEK(ZC +4) *256:DP =  PEEK(ZC +5) + PEEK(ZC +6) *256
  45. 5  REM <CTRL-0x0a>TITLE<CTRL-0x0a>
  46. 10  INVERSE : PRINT  SPC( 40)
  47. 20  FOR I = 2 TO 23
  48. 30  VTAB I: HTAB 1: INVERSE : PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";: NORMAL 
  49. 40  IF I = 10  THEN  VTAB I: HTAB 11: PRINT "SOFTDISK'S FILECOPY"
  50. 50  IF I = 12  THEN  VTAB I: HTAB 9: PRINT "VERSION "VE" BY TOM HALL"
  51. 60  IF I = 14  THEN  VTAB I: HTAB 12: PRINT "(C)1988 SOFTDISK"
  52. 70  NEXT I
  53. 80  INVERSE : VTAB 24: HTAB 1: PRINT  SPC( 39);: POKE 2039,32
  54. 85  FOR I = 769 TO 768 + PEEK(768):P$ =  CHR$( PEEK(I)): IF P$ > = "a"  AND P$ < = "z"  THEN P$ =  CHR$( ASC(P$) -32)
  55. 86 ART$ = ART$ +P$: NEXT I
  56. 90  VTAB 2: HTAB 2
  57. 100  FOR I = 16 TO 20: VTAB I: HTAB 6: PRINT  SPC( 30): NEXT 
  58. 105  NORMAL 
  59. 110  FOR I = 17 TO 19: VTAB I: HTAB 7: PRINT  SPC( 28);: NEXT I
  60. 115  VTAB 18: HTAB 15: PRINT "PRESS A KEY";: GOSUB 40000
  61. 120  POKE 32,1: POKE 33,38: POKE 34,1: POKE 35,23: HOME 
  62. 130  INVERSE : VTAB 1: HTAB 5: PRINT "SOFTDISK FILECOPY  VERSION "VE: NORMAL 
  63. 140  POKE 32,3: POKE 33,34: VTAB 4: HTAB 1
  64. 150  PRINT "THIS PROGRAM WILL COPY ALL": PRINT "THE FILES ASSOCIATED WITH": PRINT  MID$ (ART$,3): PRINT "TO THE DISK OF YOUR CHOICE": PRINT : PRINT : PRINT "PLEASE PRESS A KEY."
  65. 160  PRINT "([ESC] TO LEAVE FILECOPY)"
  66. 170  GOSUB 40000: HOME : IF K$ =  CHR$(27)  THEN  GOTO 60000
  67. 180  PRINT : PRINT 
  68. 190  PRINT "FILECOPY NOW WANTS TO FIGURE": PRINT "OUT YOUR SYSTEM SETUP. MAKE SURE": PRINT "THAT THE DISK YOU WANT TO COPY": PRINT "FILES TO IS IN ONE OF YOUR DRIVES."
  69. 200  PRINT : PRINT : PRINT "PRESS A KEY TO READ SYSTEM SETUP.": PRINT "DO NOT REMOVE SOFTDISK.": PRINT "([ESC] WILL GO BACK TO SOFTDISK.)"
  70. 210  GOSUB 40000: IF K$ =  CHR$(27)  THEN 60000
  71. 220  HOME 
  72. 230  POKE 32,1: POKE 33,38: VTAB 4: HTAB 3: PRINT "READING SYSTEM SETUP...": PRINT : HTAB 3: PRINT "(PRESS [ESC] TO LEAVE FILECOPY)"
  73. 240  POKE 34,1: POKE 35,23
  74. 250  VTAB 2: POKE 32,1: POKE 33,38: PRINT 
  75. 260  DIM P$(12),D(12,1),F$(32),AD(12,1),AD$(12),SB$(127)
  76. 270  REM <CTRL-0x0a>GETBUFR
  77. 280  ONERR  GOTO 20000
  78. 290  CALL IN
  79. 300  IF  PEEK(0) = 86  THEN  HOME : VTAB 4: HTAB 3: PRINT "NO SPACE FOR FILE BUFFERS": HTAB 3: PRINT "PRESS A KEY.": GOSUB 40000: GOTO 60000
  80. 310  PRINT  CHR$(4)"PREFIX": INPUT PF$
  81. 320 PF$ = PF$ + LEFT$(ART$,1) +"/"
  82. 330  POKE  -16368,0
  83. 390  REM <CTRL-0x0a>READ ONLINE<CTRL-0x0a>
  84. 400  FOR I = 1 TO 12:P$(I) = "": NEXT 
  85. 410 DD = 1:SS = 7:CP = 1
  86. 420  ONERR  GOTO 460
  87. 430  VTAB 21: PRINT  CHR$(4)"PREFIX,S"SS",D"DD
  88. 440  PRINT  CHR$(4)"PREFIX": INPUT P$(CP)
  89. 450  IF  PEEK( -16384) = 155  THEN 60000
  90. 460 CP = CP +1:DD = DD +1: IF DD = 3  THEN DD = 1:SS = SS -1: IF SS = 1  THEN 500
  91. 470  GOTO 430
  92. 490  REM <CTRL-0x0a>S,D INTO VARS
  93. 500  POKE 216,0: POKE 222,0
  94. 510 TS = 7:TD = 1: FOR C9 = 1 TO 12:D(C9,0) = TS:D(C9,1) = TD:TD = TD +1: IF TD >2  THEN TD = 1:TS = TS -1
  95. 520  NEXT 
  96. 530  PRINT  CHR$(4)"PREFIX " LEFT$(PF$, LEN(PF$) -2)
  97. 540  PRINT  CHR$(4)"BLOAD "ART$".T,A$300,B5,L2"
  98. 550 BV = 256 * PEEK(769) + PEEK(768)
  99. 560  PRINT  CHR$(4)"OPEN "ART$".T,TBIN"
  100. 570  PRINT  CHR$(4)"READ "ART$".T"
  101. 580  FOR I = 0 TO 4: GET K$: NEXT I:BV = BV -( ASC(K$) *2 +3)
  102. 590  FOR I = 1 TO  ASC(K$): GET K$: GET K$: NEXT I
  103. 600 FC = 0
  104. 610  GET K$: GET K$: REM  EATBYTES
  105. 620  GET K$: IF K$ = "^"  THEN 660
  106. 625  IF K$ = ""  OR BV <1  THEN 660
  107. 630 L =  ASC(K$):F$(FC) = "": FOR I = 1 TO L: GET K$:F$(FC) = F$(FC) +K$:BV = BV -1: NEXT I
  108. 640  IF BV <1  THEN 620
  109. 650 FC = FC +1: GOTO 620
  110. 660  PRINT  CHR$(4)"CLOSE"
  111. 670  POKE 34,1: POKE 35,23: HOME 
  112. 680 FC = FC -1:SRC = 0:SC = 0
  113. 690  REM <CTRL-0x0a>ACTV DRIVES
  114. 700 ND = 1: FOR I = 1 TO 12: IF P$(I) < >""  AND P$(I) < >"/RAM/"  THEN ND = 0:AD$(SC) = P$(I):AD(SC,0) = D(I,0):AD(SC,1) = D(I,1):SC = SC +1:LD = I
  115. 720  NEXT I
  116. 730  IF ND = 1  THEN  VTAB 12: HTAB 3: PRINT "THERE ARE NO VOLUMES ONLINE.": VTAB 14: HTAB 14: PRINT "PRESS A KEY": GOSUB 40000: GOTO 60000
  117. 740  IF SC = 1  THEN  VTAB 12: HTAB 3: PRINT "SOURCE AND TARGET DRIVES NOT": VTAB 13: HTAB 3: PRINT "FOUND. PRESS A KEY.": GOSUB 40000: GOTO 60000
  118. 790  REM <CTRL-0x0a>CHOOSE VOLUME<CTRL-0x0a>
  119. 800  VTAB 3: HTAB 3: PRINT "MOVE HIGHLIGHT ONTO THE NAME OF": HTAB 3: PRINT "YOUR DESTINATION DISK:"
  120. 810  VTAB 21: HTAB 2: PRINT "ARROWS MOVE HIGHLIGHT/RETURN SELECTS"
  121. 820  FOR I = 0 TO SC -1: VTAB I +6: HTAB 4: PRINT "S"AD(I,0)"D"AD(I,1)"="AD$(I): NEXT 
  122. 830 CP = 0
  123. 840  VTAB CP +6: HTAB 9: INVERSE : PRINT AD$(CP)
  124. 850  GOSUB 40000: VTAB CP +6: HTAB 9: NORMAL : PRINT AD$(CP)
  125. 860  IF K$ =  CHR$(27)  THEN 60000
  126. 870  IF K$ =  CHR$(8)  OR K$ =  CHR$(11)  THEN CP = CP -1: GOTO 900
  127. 880  IF K$ =  CHR$(21)  OR K$ =  CHR$(10)  THEN CP = CP +1: GOTO 900
  128. 890  IF K$ =  CHR$(13)  THEN 940
  129. 900  IF CP = SC  THEN CP = 0
  130. 910  IF CP =  -1  THEN CP = SC -1
  131. 920  GOTO 840
  132. 930  REM <CTRL-0x0a>LOOK FOR SUBDIRS<CTRL-0x0a>
  133. 940  HOME : VTAB 4: HTAB 3: PRINT "CHECKING "AD$(CP): HTAB 3: PRINT "FOR SUBDIRECTORIES..."
  134. 950  ONERR  GOTO 2000
  135. 955  PRINT  CHR$(4)"PREFIX,S"AD(CP,0)",D"AD(CP,1)
  136. 960 DC = 0
  137. 970  PRINT  CHR$(4)"OPEN "AD$(CP)",TDIR"
  138. 980  PRINT  CHR$(4)"READ "AD$(CP)
  139. 990  INPUT K$: INPUT K$: INPUT K$
  140. 1000  INPUT K$: ON (  NOT ( LEN(K$))) GOTO 1100
  141. 1010 F$ =  MID$ (K$,2,15):TYP$ =  MID$ (K$,18,3)
  142. 1020  ON TYP$ < >"DIR" GOTO 1000
  143. 1030 SB$(DC) = F$
  144. 1040  IF  RIGHT$(SB$(DC),1) = " "  THEN SB$(DC) =  LEFT$(SB$(DC), LEN(SB$(DC)) -1): GOTO 1040
  145. 1050 DC = DC +1: GOTO 1000
  146. 1100  PRINT  CHR$(4)"CLOSE"
  147. 1110  HOME : VTAB 3: HTAB 3
  148. 1120  IF DC = 0  THEN  PRINT "I FOUND NO SUBDIRECTORIES IN": HTAB 3: PRINT AD$(CP)".": FOR QQ = 1 TO 3000: NEXT QQ: GOTO 3000
  149. 1130  HTAB 3: PRINT "MOVE HIGHLIGHT TO SELECT A": HTAB 3: PRINT "FURTHER SUBDIRECTORY:"
  150. 1140  VTAB 17: HTAB 2: PRINT "SPACEBAR STARTS FILECOPY TO:"
  151. 1150  POKE 32,2: POKE 33,36: VTAB 18: HTAB 1: PRINT AD$(CP): POKE 32,1: POKE 33,38
  152. 1160  VTAB 22: HTAB 8: PRINT "ARROWS:MOVE HIGHLIGHT": HTAB 8: PRINT "RETURN:READ ";
  153. 1170 TP = 0:BT = 7
  154. 1180 CS = 0
  155. 1190  IF BT >DC -1  THEN BT = DC -1
  156. 1200  GOSUB 2500
  157. 1210  FOR I = 0 TO BT -TP: VTAB I +7: HTAB 3
  158. 1220  PRINT " "SB$(I +TP)" "
  159. 1230  NEXT I
  160. 1240  VTAB 6: HTAB 3: PRINT "----------------": VTAB 15: HTAB 3: PRINT "----------------"
  161. 1250  IF TP >0  THEN  VTAB 6: HTAB 3: PRINT "------MORE------"
  162. 1260  IF BT <DC -1  THEN  VTAB 15: HTAB 3: PRINT "------MORE------"
  163. 1270  VTAB 23: HTAB 20: NORMAL : PRINT  SPC( 15);: VTAB 23: HTAB 20: INVERSE : PRINT " "SB$(CS +TP)" ";
  164. 1280  VTAB CS +7: HTAB 3: INVERSE : PRINT " "SB$(CS +TP)" "
  165. 1290  GOSUB 40000: NORMAL : VTAB CS +7: HTAB 3: PRINT " "SB$(CS +TP)" "
  166. 1300  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  AND CS = 0  AND TP >0  THEN TP = TP -8:BT = TP +7:CS = 7: GOTO 1200
  167. 1310  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  THEN  IF CS >0  THEN CS = CS -1: GOTO 1270
  168. 1320  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  AND CS = BT -TP  AND BT <DC -1  THEN TP = TP +8:BT = BT +8: GOTO 1180
  169. 1330  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  THEN  IF CS <BT -TP  THEN CS = CS +1: GOTO 1270
  170. 1340  IF K$ =  CHR$(27)  THEN 60000
  171. 1350  IF K$ =  CHR$(13)  THEN 2400
  172. 1360  IF K$ = " "  THEN 3000
  173. 1370 QQ =  PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336): GOTO 1270
  174. 1990  REM <CTRL-0x0a>SUBDIR ERRORS
  175. 2000  IF  PEEK(222) = 5  THEN  POKE 216,0: GOTO 1100
  176. 2010  PRINT "ERROR:" PEEK(222)
  177. 2020  GOTO 20000
  178. 2390  REM <CTRL-0x0a>ADD SUBDIR TO PATH<CTRL-0x0a>
  179. 2400 AD$(CP) = AD$(CP) +SB$(CS +TP) +"/": GOTO 940
  180. 2490  REM <CTRL-0x0a>CLR BTM
  181. 2500  POKE 34,5: POKE 35,15: HOME : POKE 34,1: POKE 35,23: RETURN 
  182. 2990  REM <CTRL-0x0a>START COPY<CTRL-0x0a>
  183. 3000  HOME : VTAB 4: HTAB 3: PRINT "COPYING FILES FROM": VTAB 5: HTAB 3: PRINT PF$: VTAB 6: HTAB 3: PRINT "TO "AD$(CP)"..."
  184. 3010  ONERR  GOTO 20000
  185. 3020  POKE 34,10
  186. 3030  FOR I = 0 TO FC
  187. 3040  IF  RIGHT$(F$(I),2) = ".G"  OR  RIGHT$(F$(I),2) = ".g"  THEN 3130
  188. 3050  HOME : HTAB 3: PRINT "COPYING "F$(I): HTAB 3: PRINT "TO "AD$(CP)
  189. 3053  VTAB 23: HTAB 8: PRINT "[ESC] EXITS TO SOFTDISK.";
  190. 3055  IF  PEEK( -16384) = 155  THEN 60000
  191. 3060 SP$ = PF$ +F$(I):DP$ = AD$(CP) +F$(I)
  192. 3070  POKE SP, LEN(SP$): FOR A = 1 TO  LEN(SP$): POKE SP +A, ASC( MID$ (SP$,A,1)): NEXT A
  193. 3080  POKE DP, LEN(DP$): FOR A = 1 TO  LEN(DP$): POKE DP +A, ASC( MID$ (DP$,A,1)): NEXT A
  194. 3090  POKE 0,0
  195. 3100  CALL ZC: REM  DO ZE COPY
  196. 3110  IF  PEEK(0) = 71  THEN  PRINT : HTAB 3: PRINT "FILE EXISTS. COPY OVER IT? (Y/N)";: GET K$: ON K$ =  CHR$(27) GOTO 60000: ON K$ < >"Y"  AND K$ < >"y" GOTO 3130: PRINT  CHR$(4)"UNLOCK"DP$: PRINT  CHR$(4)"DELETE"DP$: GOTO 3050
  197. 3120  IF  PEEK(0) < >0  THEN 20000
  198. 3130  NEXT I
  199. 3140  POKE 34,1: HOME : VTAB 4: HTAB 3: PRINT "DONE COPYING. PRESS A KEY.": GOSUB 40000: GOTO 60000
  200. 3150  END 
  201. 19990  REM <CTRL-0x0a>BIG ERROR
  202. 20000  POKE 34,1: HOME : VTAB 4
  203. 20005  NORMAL 
  204. 20010  IF   NOT ( PEEK(222))  THEN 21000
  205. 20020 X =  PEEK(222): POKE 216,0
  206. 20025  HTAB 3
  207. 20030  PRINT "BASIC ERROR "X" ENCOUNTERED:"
  208. 20035  HTAB 3
  209. 20050  IF X = 3  THEN  PRINT "NO DEVICE CONNECTED": GOTO 20200
  210. 20060  IF X = 4  THEN  PRINT "DISK WRITE PROTECTED.": GOTO 20200
  211. 20070  IF X = 5  THEN  PRINT "END OF DATA.": GOTO 20200
  212. 20080  IF X = 6  THEN  PRINT "PATH NOT FOUND.": GOTO 20200
  213. 20090  IF X = 8  THEN  PRINT "I/O ERROR.": GOTO 20200
  214. 20100  IF X = 9  THEN  PRINT "DISK FULL.": GOTO 20200
  215. 20120  IF X = 16  THEN  PRINT "SYNTAX ERROR.": GOTO 20200
  216. 20130  IF X = 17  THEN  PRINT "DIRECTORY FULL.": GOTO 20200
  217. 20140  IF X = 19  THEN  PRINT "DUPLICATE FILENAME.": GOTO 20200
  218. 20150  IF X = 20  THEN  PRINT "FILE BUSY.": GOTO 20200
  219. 20160  IF X = 21  THEN  PRINT "FILE(S) STILL OPEN.": GOTO 20200
  220. 20170  IF X = 255  THEN  PRINT "YOU PRESSED CONTROL-C.": GOTO 20200
  221. 20190  PRINT "I DO NOT RECOGNIZE THIS ERROR."
  222. 20200  HTAB 3: PRINT "PRESS A KEY.": GOSUB 40000: GOTO 60000
  223. 20990  REM <CTRL-0x0a>MLI ERRORS<CTRL-0x0a>
  224. 21000 X =  PEEK(0)
  225. 21005  HTAB 3
  226. 21010  IF X = 39  THEN  PRINT "I/O ERROR.": GOTO 21200
  227. 21020  IF X = 43  THEN  PRINT "DISK WRITE-PROTECTED.": GOTO 21200
  228. 21030  IF X = 66  OR X = 73  OR X = 85  OR X = 72  THEN  PRINT "DISK FULL.": GOTO 21200
  229. 21040  IF X = 69  THEN  PRINT "VOLUME NOT FOUND.": GOTO 21200
  230. 21050  PRINT "I DO NOT RECOGNIZE THIS ERROR."
  231. 21200  HTAB 3: PRINT "TROUBLE COPYING FILES.": HTAB 3: PRINT "(MLI ERROR "X")": HTAB 3: PRINT "PRESS A KEY.": GOSUB 40000: GOTO 60000
  232. 40000  POKE  -16368,0: WAIT  -16384,128: GET K$: POKE  -16368,0: RETURN 
  233. 59990  REM <CTRL-0x0a>EXIT PROGRAM<CTRL-0x0a>
  234. 60000  TEXT : HOME : VTAB 12: HTAB 9: PRINT "RETURNING TO SOFTDISK"
  235. 60010  POKE  -16368,0
  236. 60020  FOR I = 1 TO 2000: NEXT I
  237. 60030  PRINT  CHR$(4)"BYE"
  238. 60040  END